home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / CRS / crs13.d81 / bomb-sqd (.txt) < prev    next >
Commodore BASIC  |  2009-10-10  |  8KB  |  219 lines
  1. 0 REM"[141][145][147]
  2. 1 [143]"GOSUBON    (null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)DEF(null)SQR(null)SQR(null)SQR(null)SQR(null)SQR(null)SQR(null)SQR(null)SQR(null)
  3. 2 REM"[141][145]    [208][146]                              [207]
  4. 3 [143]"GOSUBON    (null)WAIT   SYSAN OLD PUBLIC DOMAIN PGM   (null)
  5. 4 REM"[141][145]    [208][146]                              [207]
  6. 5 [143]"GOSUBON    (null)WAIT                              (null)
  7. 6 REM"[141][145]    [207][146]     [153]REVISED BY JIM GREEN     [208]
  8. 7 [143]"GOSUBON    (null)WAIT                              (null)
  9. 8 REM"[141][145]    [207][204][207][204][207][204][207][204][207][204][207][204][207][204][207][150][175][175][207][204][207][204][207][204][207][204][207][204][207][204][207][204][207][154]
  10. 10 Z[178]828:[129]J[178]Z[164]843:[135]X:[151]J,X:[130]
  11. 15 [131] 32,155,183,138,72,32,155,183,104,170,164,101,24,76,240,255
  12. 20 [151]53280,7:[151]53281,7:[153]"LOADRETURN":V[178][187]([171]TI):S[178]54272:[151]S[170]24,15
  13. 25 [151]53265,11:[153]"  *POSPOSPOSPOSPOSPOSRND *POSPOSPOSPOSPOSPOSRND *POSPOSPOSPOSPOSPOSPOSRND *POSPOSPOSPOSPOSPOSRND
  14. 30 PRINT"       [146][183][183][205]      [146][183][183][208]      [146][183][208][183][208]      [146][183][183][205]
  15. 35 [153]"DEF       WAITANDANDSQR DEF     WAIT  THEN DEF     WAIT THEN THEN DEF     WAITANDANDSQR
  16. 40 PRINT"       [146][175][175][186]      [146][175][175][186]      [146] [167] [167]      [146][175][175][186]
  17. 45 [153]"  LOGFREFREFREFREFREFRECOS LOGFREFREFREFREFREFRECOS LOGFREFREFRECOS LOG LOG LOGFREFREFREFREFREFRECOS
  18. 50 PRINT"[172][185][185][185][185][185][187] [172][185][185][185][185][185][187][160][172][185][185][187]  [172] [172][185][185][185][185][185][187] [172][185][185][185][185][185][187]
  19. 55 [153]"    WAITUSRUSR(null)     WAITUSRUSR(null)     WAIT  THEN     WAITUSRUSR(null)     WAITUSRUSR(null)
  20. 60 PRINT"[150][223]     [223][146]     [146]  [167] [150]    [146]  [167] [150]    [146][175][175][186] [150]    [146]  [167]
  21. 65 [153]"(null)ANDAND    WAIT     WAITANDAND WAIT     WAITANDANDSQR     WAIT  THEN     WAITANDANDSQR
  22. 70 PRINT"[188][184][184][184][184][184][190] [188][184][184][184][184][184][190][160][188][184][184][184][184][184][190] [188][184][184][190]  [188] [188][184][184][184][184][184][190]
  23. 75 [153]" LEVEL, 1 = 100 : 2 = 150  3 = 200 SEC.
  24. 80 GOSUB740:R=15:POKE53265,27
  25. 85 PRINT"[150]           PRESS < 1, 2 OR 3>
  26. 90 [158]Z,15,4:[153]"HCMDOCMDTCMDECMDL":[129]D[178]1[164]120:[130]
  27. 95 [158]Z,R,4:[153]" ":[129]D[178]1[164]80:[130]:R[178]R[170]1:[139]R[178]20[167]R[178]15
  28. 100 [161]G$:[139]G$[179][177]"1"[175]G$[179][177]"2"[175]G$[179][177]"3"[167] 90
  29. 105 G[178][197](G$):[139]G[178]1[167]G1$[178]"000105"
  30. 110 [139]G[178]2[167]G1$[178]"000155"
  31. 115 [139]G[178]3[167]G1$[178]"000205"
  32. 120 [151]53280,15:[151]53281,15:[151]53265,11
  33. 125 [153]"LOAD      --== PEEK O M B  (null) Q U A D ==--
  34. 130 PRINT"[151]  [217]OU ARE ABOUT TO ACCEPT A DANGEROUS
  35. 135 [153]"MISSION. ATN BOMB IS HIDDEN IN ONE ROOM OF";
  36. 140 [153]"         A (null)RIGHT$(null)(null)RIGHT$(null)(null) ROOM HOTEL.
  37. 145 PRINT"   [197]NTER ROOM NUMBER BY [198]LOOR, [215]ING,
  38. 150 [153]"         AND (null)OOM # -  (1-99).
  39. 155 PRINT"     [193]N OK[146] SHOWS A CORRECT ENTRY.
  40. 160 [153]"  ATN < OR > MEANS GO LOWER OR HIGHER.
  41. 165 PRINT" [217]OU MAY HAVE 100 TO 200 SECONDS TO
  42. 170 [153]"  FIND THE BOMB OR IT WILL EXPLODE.
  43. 175 PRINT"    [217]OUR LOCATION BEACON WILL GIVE A
  44. 180 [153]"STRONGER SIGNAL AS YOU APPROACH THE BOMB
  45. 185 PRINT"  [215]HEN YOU FIND THE BOMB YOU HAVE 20
  46. 190 [153]"         SECONDS TO DEFUSE IT.
  47. 195 PRINT"[198]OR PRACTICE REMOVE [210][197][205] FROM LINES 215
  48. 200 [153]"& 500. (null)RINTS ANSWERS AT TOP OF SCREEN.
  49. 205 PRINT"   [208]RESS <[211][208][193][195][197]> TO START SEARCHING":POKE53265,27:WAIT197,5
  50. 210 A=INT(RND(1)*99)+1:B=INT(RND(1)*99)+1:C=INT(RND(1)*99)+1:J=5:PRINT"[147]"
  51. 215 POKE53265,11:      PRINT"     [190]   [208]RACTICE #'S  [157]"A"[157]"B"[157]"C"[157]   [188]
  52. 220 [143] REMOVE REM ^ TO PRINT                   ANSWERS ABOVE HOTEL.
  53. 225 [141] 740:[153]"PRINT#   FN"[163]36)"THEN"
  54. 230 [158]Z,10,3:[153]"FN ASC    (null)    (null)     (null)IME    PEEKEACON PRINT#THEN"
  55. 235 [153]"   FN"[163]36)"THEN":[153]"   FN"[163]36)"THEN":[153]"   FN"[163]36)"THEN"
  56. 240 [153]"   TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(
  57. 245 SYSZ,18,5:PRINT"0  1  2  3  4  5  6  7  8  9  10
  58. 250 [153]"   OR=(null)==(null)==(null)==(null)==(null)==(null)==(null)==(null)==(null)==(null)==(null)^":[153]"   -(null)"[163]36)"<"
  59. 255 [153]"   />(null)>>(null)>>(null)>>(null)>>(null)>>(null)>>(null)>>(null)>>(null)>>(null)>>(null)EXP
  60. 260 PRINTTAB(14)"[194]OMB [196]ETECTOR":TI$="000000":GOSUB655:POKE53265,27
  61. 265 IFTI$=>G1$THEN415
  62. 270 IFA=LTHEN320
  63. 275 SYSZ,15,1:PRINT"[175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175]"
  64. 280 PRINT"                                       "
  65. 285 PRINT" [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  66. 290 SYSZ,16,11:PRINT"[198]LOOR # ";
  67. 295 OPEN1,0:INPUT#1,A$:PRINT:CLOSE1:L=VAL(A$)
  68. 300 SYSZ,16,11:PRINT"              [152]":IFL>99ORL<1THEN290
  69. 305 IFL<ATHENSYSZ,12,4:PRINTL"[157]> ":GOSUB665:GOSUB655:GOSUB1045
  70. 310 IFL>ATHENSYSZ,12,4:PRINTL"[157]< ":GOSUB665:GOSUB655:GOSUB1045
  71. 315 IFA=LTHENFORD=1TO800:NEXT:SYSZ,12,5:PRINT"OK[146] ":GOSUB1035
  72. 320 IFTI$=>G1$THEN415
  73. 325 IFB=WTHEN360
  74. 330 SYSZ,16,11:PRINT"[215]ING  # ";
  75. 335 OPEN1,0:INPUT#1,A$:PRINT:CLOSE1:W=VAL(A$)
  76. 340 SYSZ,16,11:PRINT"              [152]":IFW>99ORW<1THEN290
  77. 345 IFW<BTHENSYSZ,12,9:PRINTW"[157]> ":GOSUB665:GOSUB655:GOSUB1045
  78. 350 IFW>BTHENSYSZ,12,9:PRINTW"[157]< ":GOSUB665:GOSUB655:GOSUB1045
  79. 355 IFB=WTHENFORD=1TO800:NEXT:SYSZ,12,10:PRINT"OK[146] ":GOSUB1035
  80. 360 IFTI$=>G1$THEN415
  81. 365 IFC=HTHEN405
  82. 370 SYSZ,16,11:PRINT"[210]OOM  # ";
  83. 375 OPEN1,0:INPUT#1,A$:PRINT:CLOSE1:H=VAL(A$)
  84. 380 SYSZ,16,11:PRINT"             [152]":IFH>99ORH<1THEN290
  85. 385 IFH<CTHENSYSZ,12,14:PRINTH"[157]> ":GOSUB665:GOSUB655:GOSUB1045
  86. 390 IFH>CTHENSYSZ,12,14:PRINTH"[157]< ":GOSUB665:GOSUB655:GOSUB1045
  87. 395 IFC=HTHENFORD=1TO800:NEXT:SYSZ,12,15:PRINT"OK[146] ":GOSUB1035
  88. 400 FORD=1TO1E3:NEXT
  89. 405 IFA=LANDB=WANDC=HTHENGOSUB655:GOTO440
  90. 410 IFTI$<G1$THEN265
  91. 415 PRINT"[147]":POKE53265,11:GOSUB 740:PRINT" [212]OO LATE!!  [194]OMB IS ON [192]"
  92. 420 SYSZ,16,4:PRINT"[198]LOOR"A:SYSZ,16,16:PRINT"[215]ING "B
  93. 425 SYSZ,16,28:PRINT"[210]OOM "C:POKE53265,27:FORT=1TO5:GOSUB1045:NEXT
  94. 430 FORD=1TO7E3:NEXT:GOTO590
  95. 435       YOU FOUND THE BOMB!!
  96. 440 SYSZ,20,6:PRINT"        [194]OMB  [204]OCATED        ":FORT=1TO6:GOSUB1035:NEXT
  97. 445 V=INT(RND(1)*9):N=INT(RND(1)*9):M=INT(RND(1)*9)
  98. 450 FORD=1TO4E3:NEXT:PRINT"[147][142][152]":U=8:K=6:POKE53265,11
  99. 455 SYSZ,11,7:PRINT"YOU HAVE LOCATED THE BOMB!
  100. 460 [153]"   YOU MUST NOW DEFUSE IT. ENTER THE
  101. 465 PRINT"    CORRECT COMBINATION (3 NUMBERS).
  102. 470 [153]"   EACH NUMBER IS FROM 0 TO 9. IF A
  103. 475 PRINT"     NUMBER IS GOOD, YOU GET A [219].
  104. 480 [153]"  GOOD LUCK YOU HAVE ONLY 20 SECONDS."
  105. 485 [153]"      PRESS <SPACE> TO DEFUSE BOMB":[151]53265,27
  106. 490 [141] 705:[129]D[178]1[164]500:[130]
  107. 495 [153]"LOAD";:[151]53265,11:[141]740
  108. 500 :    [153]""[163]37)V"CMDCMDCMD"N"CMDCMDCMD"M:[143] REMOVE ABOVE REM FOR COMBINATION
  109. 505 [158]Z,9,2:[153]"  (null)IME"[166]15)" THENPOKE         FN "
  110. 510 [153][163]12)"*PRINT#TANTANTANTANTANTANTANTANTANTAN THENPOKE  PEEKOMB!  FN "
  111. 515 [153][163]23)" THENPOKE         FN ":[141] 780
  112. 520 [139]A[178]V[175]B[178]N[175]C[178]M[167]565
  113. 525 [143]      YOU GOT BLOWED UP!!
  114. 530 F[178]1:[137]590
  115. 535 [153]"LOAD  (null)HE COMBINATION WAS-"
  116. 540 [153]"         "V"     "N"      "M
  117. 545 [153]"LENONDOLENCES WILL BE SENT TO YOUR FAMILY!"
  118. 550 [153]"    (null)OU CAN'T PLAY ANYMORE,
  119. 555 PRINT"            CAUSE YOU'RE [194][204][207][215][197][196][160][213][208]!!":FORD=1TO10E3:NEXT:RETURN
  120. 560 GOTO590
  121. 565 FORT=1TO25:SYSZ,9,20:PRINT"                "
  122. 570 PRINTTAB(9)"            [194][207][205][194][160][196][197][198][213][211][197][196]!! ":PRINTTAB(20)"                "
  123. 575 GOSUB1035:FORD=1TO25:NEXT
  124. 580 SYSZ,10,20:PRINT"[158] [194][207][205][194][160][196][197][198][213][211][197][196]!! ":FORD=1TO70:NEXT:NEXT
  125. 585 FORD=1TO5E3:NEXT:PRINT"[147]":GOTO630
  126. 590 POKE198,0:PRINT"[147]":G=53281:POKEG-1,2:POKEG,7
  127. 595 SYSZ,5,0:FORT=1TO4:PRINTTAB(13)"* * [203][193][194][207][207][205] * *":NEXT
  128. 600 FORL=STOS+24:POKEL,0:NEXT:POKES+5,15:POKES+6,15:POKES+24,15
  129. 605 POKES+1,5:POKES,235:POKES+4,129:POKES+4,128
  130. 610 FORX=1TO29:IF(PEEK(G)AND15)=7THENPOKEG,2:GOTO620
  131. 615 POKEG,7
  132. 620 FORD=1TO44:NEXTD,X
  133. 625 IFF=1THENGOSUB535:GOTO650
  134. 630 SYSZ,11,11:PRINT" [208]LAY AGAIN  [217]/[206]  "
  135. 635 GETG$:IFG$<>"Y"ANDG$<>"N"THEN635
  136. 640 FORL=STOS+23:POKEL,0:NEXT
  137. 645 IFG$="Y"THENRUN
  138. 650 POKE53280,14:POKE53281,6:PRINT"[147][154]";:END
  139. 655 SYSZ,12,22:PRINTRIGHT$(TI$,3):RETURN
  140. 660 SYSZ,11,5:PRINT"[150]"RIGHT$(TI$,3):SYSZ,10,12:PRINT"[150]X":RETURN
  141. 665 SYSZ,20,J:PRINT" ":BE=1E4-(ABS(A-L)+ABS(B-W)+ABS(C-H))*29
  142. 670 J=INT(BE/333.3333+.5)+5:SYSZ,20,J:PRINT"[158]^[152]":SYSZ,12,29:PRINTBE:RETURN
  143. 675 SYSZ,3,20:PRINT"[150]   [205] [221] [206] ":PRINTTAB(21)"[150][205] [205] [158][221] [206] [150][206]
  144. 680 [153][163]21)"DEFTAN SYS* * SYS* DEFTAN":[153][163]21)"DEF(null) (null) SYS(null) (null) DEF(null)
  145. 685 PRINTTAB(20)"[150]   [206] [221] [205]":FORD=1TO300:NEXT:RETURN
  146. 690 U=8:J=6:PRINT"[147]":POKE53281,15:GOTO705
  147. 695 K=K+1:PRINTTAB(19)" [167][151]  BOMB!  [165] ":IFK=>17THENK=17
  148. 700 SYSZ,5,K:PRINT" *[152]"; LEFT$("[192][192][192][192][192][192][192][192][192][192]",17-K):RETURN
  149. 705 SYSZ,4,19:PRINT" [167][151]         [165] "
  150. 710 IFU>8THENGOSUB 695:GOTO 720
  151. 715 PRINT"        *[152][192][192][192][192][192][192][192][192][192][192] [167][151]  BOMB!  [165] "
  152. 720 PRINT"                    [167][151]         [165] "
  153. 725 U=U+1:FORD=1TO200:NEXT:IFU=20THENGOSUB 675:U=19
  154. 730 GETG$:IFG$<>" "THEN 705
  155. 735 RETURN
  156. 740 PRINT"    [176][178][192][192][192][192][178][192][192][192][192][178][192][192][192][192][178][192][192][192][192][178][192][192][192][192][178][192][192][192][192][174]
  157. 745 [153]"  LEFT$WAIT(null)FORANDANDANDANDWAIT(null)FORANDANDANDANDWAIT(null)FORANDANDANDANDWAIT(null)FORANDANDANDANDWAIT(null)FORANDANDANDANDWAIT(null)FORANDANDANDANDWAIT(null)
  158. 750 PRINT"  O[146][221][129][183][183][183][183][146][221][129][183][183][183][183][146][221][129][183][183][183][183][146][221][129][183][183][183][183][146][221][129][183][183][183][183][146][221][129][183][183][183][183][146][221]
  159. 755 [153]"  TWAIT(null)TANTANTANTAN(null)TANTANTANTAN(null)TANTANTANTAN(null)TANTANTANTAN(null)TANTANTANTAN(null)TANTANTANTAN<
  160. 760 PRINT"    E[146][221][129][175][175][175][175][146][221][129][175][175][175][175][146][221][129][175][175][175][175][146][221][129][175][175][175][175][146][221][129][175][175][175][175][146][221][129][175][175][175][175][146][221]
  161. 765 [153]"    LWAIT(null)FORUSRUSRUSRUSRWAIT(null)FORUSRUSRUSRUSRWAIT(null)FORUSRUSRUSRUSRWAIT(null)FORUSRUSRUSRUSRWAIT(null)FORUSRUSRUSRUSRWAIT(null)FORUSRUSRUSRUSRWAIT(null)
  162. 770 PRINT"    [173][177][192][192][192][192][177][178][178][178][178][177][192][192][192][192][177][192][192][192][192][177][178][178][178][178][177][192][192][192][192][189]
  163. 775 [153]"                                     ":[142]
  164. 780 [158]Z,13,1:[153]"ORTANTANTANTANTANTANTANTANTANTANTAN^ORTANTANTANTANTANTANTANTANTANTANTAN^ORTANTANTANTANTANTANTANTANTANTANTAN^";
  165. 785 [153]" (null)           WAIT(null)(null)           WAIT(null)(null)           WAIT(null)";
  166. 790 [153]" (null) 0 1 2 3 4 WAIT-< 0 1 2 3 4 WAIT-< 0 1 2 3 4 WAIT(null)";
  167. 795 [153]" (null)           WAIT(null)(null)           WAIT(null)(null)           WAIT(null)";
  168. 800 [153]" (null) 5 6 7 8 9 WAIT-< 5 6 7 8 9 WAIT-< 5 6 7 8 9 WAIT(null)";
  169. 805 [153]" (null)           WAIT(null)(null)           WAIT(null)(null)           WAIT(null)";
  170. 810 [153]" /TANTANTANTANTANTANTANTANTANTANTANEXP/TANTANTANTANTANTANTANTANTANTANTANEXP/TANTANTANTANTANTANTANTANTANTANTANEXP";:TI$[178]"000000":   [141]660
  171. 815 A[178][171]1:B[178][171]1:C[178][171]1:P[178][171]1:P1[178][171]1:P2[178][171]1
  172. 820 [151]198,0:[139]A[178]V[175]B[178]N[175]C[178]M[167]1020
  173. 825 [139]TI$[178][177]"000023"[167][142]
  174. 830 [158]Z,20,1:[153]"                                   "
  175. 835 [158]Z,21,14:[153]"SYSVALNTER #   0-9"
  176. 840 [153]"PRINT#   ATN > OR < MEANS GO HIGHER OR LOWER.
  177. 845 PRINT"       [193] [219] MEANS CORRECT ENTRY.":POKE53265,27
  178. 850 IFP<>VTHENSYSZ,20,7:PRINT"[151]^"
  179. 855 IFP=VTHEN 905
  180. 860 SYSZ,10,12:PRINT"*
  181. 865 [161]G$:[139]G$[179]"0"[176]G$[177]"9"[167] 865
  182. 870 A[178][197](G$):[141]660:[139]TI$[178][177]"000023"[167][142]
  183. 875 [139]A[179]5[167][158]Z,15,3[170]A[170]A:[137] 885
  184. 880 [139]A[177]4[167][158]Z,17,3[170](A[171]5)[170](A[171]5)
  185. 885 P[178]A:[139]A[178]V[167][153]"(null)":[141]1035:[137]900
  186. 890 [139]A[179]V[167][153]">":[141]1045
  187. 895 [139]A[177]V[167][153]"<":[141]1045
  188. 900 [158]Z,20,7:[153]" "
  189. 905 [139]P1[179][177]N[167][158]Z,20,20:[153]"POKE^"
  190. 910 [139]P1[178]N[167] 965
  191. 915 [158]Z,10,12:[153]"*
  192. 920 IFP1=NTHEN 965
  193. 925 GETG$:IFG$<"0"ORG$>"9"THEN 925
  194. 930 B=VAL(G$):GOSUB660:IFTI$=>"000023"THENRETURN
  195. 935 IFB<5THENSYSZ,15,16+B+B:GOTO 945
  196. 940 IFB>4THENSYSZ,17,16+(B-5)+(B-5)
  197. 945 P1=B:IFB=NTHENPRINT"[219]":GOSUB1035:GOTO960
  198. 950 IFB<NTHENPRINT">":GOSUB1045
  199. 955 IFB>NTHENPRINT"<":GOSUB1045
  200. 960 SYSZ,20,20:PRINT" "
  201. 965 IFP2<>MTHENSYSZ,20,33:PRINT"[151]^"
  202. 970 SYSZ,10,12:PRINT"*
  203. 975 [139]P2[178]M[167]1015
  204. 980 [161]G$:[139]G$[179]"0"[176]G$[177]"9"[167] 980
  205. 985 C[178][197](G$):[141]660:[139]TI$[178][177]"000105"[167][142]
  206. 990 [139]C[179]5[167][158]Z,15,29[170]C[170]C:[137]1000
  207. 995 [139]C[177]4[167][158]Z,17,29[170](C[171]5)[170](C[171]5)
  208. 1000 P2[178]C:[139]C[178]M[167][153]"(null)":[141]1035:[137]1015
  209. 1005 [139]C[179]M[167][153]">":[141]1045
  210. 1010 [139]C[177]M[167][153]"<":[141]1045
  211. 1015 [137] 820
  212. 1020 [158]Z,10,12:[153]"*":[158]Z,13,20:[153]"(null)WAITONCMD(null)ONCMD(null)ONCMD(null)"
  213. 1025 [129]T[178]15[164]1[169][171]1:[151]Q[170]24,T:[151]Q[170]24,0:[130]:[129]D[178]1[164]800:[130]
  214. 1030 [158]Z,13,20:[153]"TANONCMD ONCMD ONCMDPRINT#/CMDCMDCMDCMDCMDCMDCMDCMDCMD*":[142]
  215. 1035 [151]S[170]6,0:[151]S[170]5,31:[151]S[170]1,35:[151]S[170]4,33
  216. 1040 [129]D[178]1[164]30:[130]:[151]S[170]4,0:[142]
  217. 1045 [151]S[170]6,0:[151]S[170]5,31:[151]S[170]1,5:[151]S[170]4,33
  218. 1050 [129]D[178]1[164]80:[130]:[151]S[170]4,0:[142]
  219.